home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macros.arc / ACTAR.ASM next >
Encoding:
Assembly Source File  |  1983-11-17  |  821 b   |  11 lines
  1.  
  2. *MOVE AC TO AR                                                                  
  3. *                                                                               
  4. ACTAR  $MACRO  A,T                                                              
  5.        $IF  T.L=0        ASSIGN XR0 AS TEMP                                     
  6.        $ASG 'XR0' TO T.S                                                        
  7.        $ENDIF                                                                   
  8.        SACL :T:,0        STORE AC TO :T:                                        
  9.        LAR  :A:,:T:      RE-LOAD :A:                                            
  10.        LARP :A:          LOAD AR POINTER                                        
  11.        $END